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4] . EDITORA LLUTÉCIA 


Introdução 


Embora todos os micros nacionais 
utilizem a linguagem BASIC, existem 
vários dialetos desta linguagem usados 
em micros de diferentes marcas € 
modelos. Os micros nacionais podem ser 
divididos em seis “famílias”: a família 
Spectrum (TK-85, TK-90X), a família 
TRS-80 (DGT-1000, CP-500 etc.), a 
família TRS-80 Color (CP-400), a família 
Apple (Micro Engenho, Ap-II etc.), à 
família MSX (Expert, Hot Bit) e a 
família PC (Ego, 1-7000 etc.). Se você 
não souber a que família pertence o seu 
micro, poderá obter a informação em 
qualquer loja especializada. 

Neste livro, a listagem principal de 
cada programa é para os micros da 
família TRS-80. As linhas que precisam 
ser mudadas para que o programa 
funcione em outros computadores estão 
indicadas por símbolos e as modificações 
aparecem no final de cada listagem. Os 
símbolos são os seguintes: 

Otamília TRS-80 Culor 

Y família Spectrum 

O família Apple 

família MSX 

4 família PC 

A Commodore 64 e VIC 20* 

Quando você vir o símbolo da família a 
que pertence O seu micro, procure no 
final da listagem uma linha com o 
mesmo símbolo e o mesmo número. Use- 
a no lugar da linha correspondente da 
listagem principal. Na página 17 há notas 
especiais para os usuários do TK-2000, 
do MSX e do PC. 


*Até o momento não têm equivalentes no Brasil 


Como carregar e executar os 
programas 


Escreva as linhas exatamente como na 
listagem, incluindo todos os espaços € 
sinais de pontuação. Depois de bater 
cada linha, verifique na tela se tudo está 
certo antes de apertar a tecla RETURN 
(ou a tecla equivalente para o seu micro). 
Para começar O jogo, entre com RUN. 
Em alguns jogos, as coisas acontecem 
muito depressa, de modo que é melhor 
ler atentamente as instruções antes de 
começar. Se o programa não funcionar 
corretamente, o melhor é listá-lo e 
comparar as instruções com as do livro, 
uma por uma, até descobrir onde está o 
erro. 


Experiências com os jogos 


Este livro contém várias sugestões para 
modificar e ampliar Os prograruas, mas 
não tenha medo de introduzir suas 
próprias alterações. Não há perigo de 
danificar o computador; se sua idéia não 
der certo, sempre poderá voltar ao 
programa original. 

Você provavelmente terá vontade de 
mudar a velocidade de alguns jogos, 
especialmente depois que estiver 
familiarizado com eles. As instruções 
para fazer isso estão perto da listagem de 
cada programa. 

Seo seu computador é capaz de gerar 
cores ou sons, consulte o manual para 
descobrir como funcionam as “instruções 
correspondentes e experimente usá-las nos 
programas deste livro. 


O programa Pesadelo se baseia em uma-idéia de Brendon Kavanagh 
O Mago dos Números, Aspirador de Fantasmas e Labirinto Assombrado foram 
escritos por Colin Reynolds 


Mulher-A: 
e Casa Maluca por Keith Campbell. 
Ilustrações: Rob McCaig 

Edição: Jenny Tyler 

Edição dos programas: Chris Oxlade 


ha foi escrito por Val Robinson, Cemitério por Alan Ramsey 


Pesadelo 


Você adormeceu quando estava programando o seu computador. De repente, ele 

começa a funcionar sozinho e passa a insultá-lo e a mostrar números na tela. Para 
vencer o computador, você precisa repetir os números que aparecem. A contagem 
i de 300 aumenta quando você acerta um número e diminui quando erra. Se 
chegar a 500, o computador será derrotado, mas se chegar a zero, você se tornará 


escravo do micro. É um pesadelo! Quem ganhará? 


Como funciona 


TO LET F5="" 
vw 20 DIM C5(5) 
30 LET 5=300 
40 LET CS(1)="SEU BURRO!* 
50 LET CS(2)="NR0 PODE COMIGO!” E 
60 LET CS(3)="SOU MAIS ESPERTO!” 


70 LET CSL4)="ARALXO OS HUMANOS! * 
BO LET C8(5)="ESTA ACERTANDO MULTO!" - 
ae 9 AS 


4vamo 100 LET N=INT(RND(0)49)41 


iza a contagem de pontos. 


Guarda os comentári 
memóri: 


[Apaga a tela. 


Escolhe um número de 14 9€e o 


guarda em N. 


Imprime N e a contagem (S) em 


MO PRINT TABCS)H + 
120 PRINT TABCIS);S 


(VAO 30 LF RND(0)D0,5 THEN GUTO 160 
140 PRINT 
150 PRINT CSCINT(S/100)+1) 
180 1F S(60 THEN PRINT “ESTA PERDIDE 
190 1F 8) 440 THEN PRINT “SOCORRO!” 
v 180 FOR 1=] TO 100 a 
190 LET AS-INKEYS 
200 IF AS()"" THEN LET ESSAS 
210 NEXT 1 E 


220 LET 5=8-10 


diferentes locais da tela. 
Decide se vai imprimir mensagens. 


Imprime mensagens que dependem 
da contagem de pontos. 


se você está apertando 
uma tecla; se está, guarda em FS. 


Diminui a contagem de 10. 


230 1F VALCFS)ON THEN GOTO 250 


240 LET 5=S+]O+82 
250 LF S(O THEN GOTO 280 —) 
260 LF S)500 THEN GOTO 300 —1 


270 GOTO 90 — 

280 PRINT “VOCE E MEU ESCRAVO!” 

so sior 

300 PRINT “VOCE GANHOU (DESTA VEZ)" 

310 STOP 

A list é para o TRS-B0. Para o: 


outros u as mudanças abaixo. 


w 20 DIM 05(5,23) 
090 HOME 
4 90 PRINT CHRS(147) 
AMO 100 LET N=INT(RNOC1)39)+ 
6V 100 LET N=INT(RNDE9)+ 
40130 IF RND(1))0,5 THEN GOTO 160 
6V130 TF RNDJ0.5 THEN GOTO 140 
v 180 FOR 1=1 TO 50 
eim “IF PEEX(-16384))127 
THEM GET AS 
4 190 GET AS 


Se você apertou a tecla errada, pula 
para 250 para não aumentar a 
contagem na linha 240. 


Verifica se você ganhou ou perdeu 
o jogo 


Volta para outra tentativa. 


A rapidez do jogo depende deste 
número. Você provavelmente terá 
que ajustá-lo de acordo com a 

velocidade do seu micro. Quanto 
maior 0 número, mais lento o jogo. 


Sugestão 


A contagem de pontos é 
controlada pelas linhas 30, 220 e 
240. Mude os números nessas 
linhas para ver o que acontece. 


Problema 


Como você faria para o 
computador mostrar letras na 
tela em lugar de números? 


s os visitantes a este desafio. Ele faz os números 
ga dois dados. Você tem que dar a ele dois dos 
ma seja igual à soma dos múmeros dos dois 
ele desaparece e não pode ser usado de 
dos os números desaparecerem antes de 


terminarem suas 8 tentativas (você ganha uma tentativa extra cada vez que os dados 
dão uma dobradinha). Você pode usar o zero como um dos números quantas vezes 
4 


O Mago dos Números submete todo: 
de 1a 9 aparecerem no ar € depois jo; 
números que apareceram no ar € cuja so! 
dados. Depois que você usa um número, 
+ novo. Para ganhar, você precisa fazer toi 


jiser. Se não puder obter a soma desejada, passe para & tentativa seguinte usando 
dois zeros. Veja quantas vezes consegue derrotar o Mago. 


Vo DIM AcIO) 


20 LET T=8 

30 FOR I=1 TO 10 

40 LET A(13=] 

50 NEXT 1 
Ae 60 CLS 

70 PRINT "O MAGO DOS NUMEROS" :PRINT 

BO LET A(1)=] 


90 LET V=0 


SE 


Como o programa 
funciona 
Cria uma matriz, A. 


T é o número de tentativas. 


Coloca 1 em todos os elementos de 
A. 


Coloca 1 em A(1), para que você 
possa usar O quantas vezes quiser. 


V00 FOR 1=2 TO 10 
NO IF ACI)CO THEN GOTO 150 
PRINT" "y 
LET Vega! 
140 GOTO 140 
150 PRINT 1-15 
160 NEXT 1 
170 PRINT 
180 1F 7=1 THEN PRINT 
“ESTA E A ULTIMA TENTATIVA" SGOTO 200 
190 PRINT “VOCE TEM “sT;” TENTATIVAS” 
VAO 200 LET C=INTCRNDCO)tó+1) 
LET B=INTCRND(0)46+1) 
PRINT “OS NUMEROS SAO 


120 
130 


PRINT “QUAIS SAO OS 


INPUT N 

INPUT M 

IF M)9 OR N)9 THEN PRINT 
“BRANDE DEMAIS, .. TENTE es Novo” 
IF M9 OR N)9 TI 

TF MENCIB+E OR ACN+)=0 a 
ACM+)=0 THEN GOTO 340 


“3C,eaB [ 
SEUS?" 
IF B=C THEN LET T=T+2 


LET ACM+)=0 
LET ACN+1)=0 


1F V=8 AND (MC)O OR N4>0) THEN GOTO 370 
1F V=7 AND MOO AND NCO THEN GOTO 370 


LET T=T=1:IF 150 THEN BOTO 60 
ae “O MAGO VENCEU" 


PR INT “VOCE VENCEU” 
STOP 


A listagem acima é para o TRS-80. Para os 
outros micros, faça as modificações abaixo. 


060 HOME 
4 60 PRINT CHRSCI47) 
AMO 200 LET CxINTCRNDC1)86+1) 
200 LET C=INT(RNDS6+ 
A BO 2]0 LET E=INTRND(1)t6+1) 
OW ZIO LET B=INTARNDAG+) 


V é o número de números que já 
foram usados. 


Imprime os números. Se A(]) é zero, 
o número L-1 já foi usado. 


Imprime o número de tentativas que 
restam 


Escolhe os números dos dados e os 
imprime. 


No caso de uma dobradinha, 
aumenta o número de tentativas que 
restam, 


Recebe os seus números e verifica se 
são válidos. 


Se a soma está errada ou um dos 


= |+-—— números já foi usado, volta para 


outra tentativa. 


Se os números estão certos, coloca O 


— nos elementos correspondentes de A 


para mostrar que já foram usados. 


"| se os números acabaram, você 
vencen. 


Diminui de 1 o número de tentativas 
e verifica se elas acabaram. 


Veja se consegue fazer o 
computador voltar 
automaticamênte para um 
novo desafio e manter um 
registro do número de vezes 
que você e o Mago venceram. 


Fantasmas 


Neste jogo, os fantasmas são números que passam na tela. Para capturá-los, você 
aciona o Aspirador de Fantasmas apertando a tecla X, mas para que ele funcione é 
preciso que esteja com o mesmo número que o fantasma. Para aumentar O número 
do aspirador, basta apertar a tecla M (quando o número chega a 9, volta de novo a 
0). Quando você deixa de aspirar um fantasma, ele rouba uma das suas vidas 
(indicadas como barras no canto superior esquerdo da tela). Veja quantos fantasmas 
consegue aspirar. 

Como o programa 

funciona 


10 LET 5=0 TES JE Inicializa a contagem e o número do 
20 LET Y=0 aspirador. 
30 LET L=3 L vixa o número de vidas. 
PANO 40 LET N=INTRNDORIO —— cor mi 
50 LET =] Escolhe um número entre O e 9 para O 
AO 40 CLS fantasma. 


70 PRINT “ASPIRADOR DE FANTASMAS" :PRINT ' 
80 FOR J=1 TOL Inicializa o contador da distância 


90 PRINT “/"; --— percorrida pelo fantasma. 
100. NEXT 


Imprime na tela o número de vidas 


NO PRINT que restam. 
120 PRINT TABCL);N; ARCO 


L— imprime o fantasma, a barreira (:) e o 
aspirador. 


Este é um bom jogo para você 
acrescentar efeitos sonoros. 
Escolha um som para quando 
perder uma vida e outro para 
quando capturar um fantasma. 


130 FOR K=1 TO 50 


THEN GOTO 240 
THEN LET Y=y+ 
180 IF Y=10 THEN LET Y=0 


190 LET 1=1+] meio 
200 IF 1418 THEN GOTO 40 


210 LET L=L-] “EE 
220 IF L»0 THEN GOTO 40 


230 GOTO 310 
240 IF YON THEN GOTO 190 — - 


250 PRINT “PEGOU UM" 

260 PRINT “tese 

270 FOR K=1 TO 300 

280 NEXT K 

290 LET S=S+(18-1) 

300 GOTO 40 

AO 310 CLS 

320 PRINT "VOCE FEZ” 

330 PRINT S; “PONTOS” 

340 PRINT 

350 PRINT “DE NOVO? (5/N)" 

360 INPUT AS 

370 IF AS="5" THEN RUN 

380 1F Af="N” THEN STOP 
Você pode mudar a velocidade 
deste jogo mudando o número 
da linha 130; quanto menor o 
número, mais rápido o jogo. 
Também pode tornar o jogo 
mais difícil diminuindo o 
número que aparece nas linhas 
120 e 200. 


Verifica se você está apertando uma 
tecla. Se é X, vai para 240; se é M, 
aumenta o seu'número de 1. 

Faz seu número voltar a zero quando 
ele passa de 9. 


Incrementa o contador de distância. 
Se o fantasma ainda não chegou à 
barreira nem foi aspirado, volta para 
imprimir o fantasma na nova posição. 


Se o fantasma chegou à barreira, você 
perde uma vida. 


Se você ainda tem vidas, volta para 
sortear outro fantasma. 
Verifica se o seu número é igual ao do 


fantasma; se não é, continua a 
incrementar o contador de distância, 


A listagem acima é para o TRS-80. Para os 
outros micros, faça as mudanças abaixo. 


AMO 40 LET N=INTCRNDCI)X10) 
6740 LET N=INTCRNDX10) 
60,310 HOME 
4 60,310 PRINT CHR$(147) 
0150 LET BS=""“:IF 
PEEK(-16384))127 
THEN GET BS 
4150 GET BS 


Mulher-Aranha 


Socorro! É a Mulher-Aranha! 

Felizmente, hoje ela está de bom humor. Se você conseguir adivinhar a letra em que 
está pensando, ela o deixa! 

Para descobrir a letra, dê uma pal 


rá ir. Se não, será transformado em mosca. 
lavra à Mulher-Aranha e ela lhe dirá se contém ou 
não a letra. 


10 LET 6=0 
AO cis Como funciona 


OVABO3O LET T=INT(RHDCON26465) “| 
Escolhe um número, transforma-o em 
49 LET RS(T) letra e guarda-o em TS. 


50 PRINT “A MULHER-ARANHA" 

40 PRINT “JA ESCOLHEU UMA LETRA” 
70 PRINT 

80 PRINT “DIGA UMA PALAVRA” 


90 PRINT Incrementa o número de tentativas. 


100 PRINT 
WO INPUT 45 Verifica se a palavra é grande ou 
120 LET 6=6+] pequena demais. 
130 L=LENÇUM) verifi alavra contém a letra. 
140 IF L(4 OR L)B THEN BOTO 70 prio tip ir 
150 LÊT F=0 
160 FOR [=] TO L 

W 170 LET RS=HIDSCUS, 1,1) 

180 IF AS=TS THEN F=] y 
a enc uma meme e ti 
200 IF F=] THEN GOTO 280 
210 PRINT “Loop” de espera para que você 
220 PRINT “NAO ESTA NESTA PALAVRA possa ver a mensagem. 
ai fla TU Encerra o programa se suas tentativas 
250 IF 615 THEN 6070 400 ————— 

AO 260 CLS + Apaga a tela e volta para pedir outra 
270 GOTO 70 palavra. 
280 PRINT "SIM - ESTA NESSA PALAVRA" —] 
290 PRINT Imprime uma mensagem se a palavra 


P a contém a letra. Se você não quer dar 

SO PRINT “QUER RR UM PRLHTE(S/M? dm ali, ve pars pedi Sua 

320 IF R$="N” THEN GOTO 250 asi 

330 PRINT 

340 PRINT “QUAL O SEU PALPITE 9º 

350 INPUT 68 

360 IF GSCTS THEN GOTO 410 

370 PRINT "ESTA BEM - PODE IR“ 

380 PRINT “(DESTA VEZ)" 

390 STOP 

400 PRINT “TARDE DEMAIS" 

410 PRINT “AGORA VOCE E UMA MOSCA 

420 STOP Veja o que acontece se você mudar o 15 na 
A listagem acima é para o TRS-80. Para os linha 250 por um número menor. E se 
outros micros, faça as mudanças abaixo. mudar o 4e o & na linha 140? 


O 20 HOME 
420 PRINT CHR$(147) 


AMO 30 LET T=INT(RND(1)426+65) ha quer que você modifique 
azer o seguinte; se a 


030 LET T=INT(RNDS26+65) 
a contiver a letra escolhida, você terá 
W 170 LET AS=usci TO 1) direito a dois palpites: mas se 0 seu primeiro 
9260 HOME palpite estiver errado, perderá cinco 
4.260 PRINT CHR$(147) tentativas. 


Pede uma palavra. 


Imprime mensagens diferentes se você 
acertou a letra ou não. 


Sugestões 


Cemitério 


Você está perdido em um cemitério e ten 


até meia-noite para encontrar a saída. 
Esqueletos espreitam nas sombras e 
poderão matá-lo de susto se você se 
aproximar demais. Você pode cavar 


buracos (cinco por jogo) para mantê-los 
afastados, mas tome cuidado para não cair 


em um dos buracos que cavou. 
Você não pode passar por cima dos 


“túmulos (+) nem dos muros do cemitério 
(3). Os buracos são representados por [UA 


você é um (*) e os esqueletos são OU. 
Veja se consegue escapar à tempo. 


Como o programa funciona 


50-90: Enche a matriz A de espaços 
vazios. 

110; Fixa o número máximo de 
buracos. 

120-170: — Define os símbolos a serem 
usados. 


180-260: 
270-310: 
320-390: 


Guarda os muros na matriz. 
Escolhe a posição dos túmulos. 
Fixa as posições iniciais do 
jogador e dos esqueletos. 
Guarda os esqueletos na matriz. 
Calcula a nova posição do 
jogador. 

Verifica se há alguma coisa na 
nova posição. Se não há, move 
o jogador para lá. 


Imprime o cemitério. 

: Coloca um buraco na matriz se 
você assim o quer. 

1080-1280: Move os esqueletos. 


Imprime vários finais para o jogo. 


cLs 
20 PRINT “CEMITERIO” 
30 DIM AC10,20) 
40 DIM B(6) 
50 FOR 1=1 TO 10 
&0 FOR J=1 TO 20 
w70 LET ACI, J)=ASCE” “7 
80 NEXT 
90 NEXT 
LET 
LET 
w120 LET 
LET 
LET 
v150 LET 
LET 
LET 
180 FOR 
LET 
LET A(J,20)=D 
NEXT q 
FOR J=1 TO 20 
LET ACT, )=D 
240 LET ACO, J)=D 
250 NEXT 
260 LET A(9,20)=Z 
270 FOR TO 20 
LET F=INT(RND(0)X7+2) 
LET G=INTCRND(0)415+3) 
LET ACF,6)=B 


LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
FOR J=1 TOS STEP 2 
LET ACBCJ),B(J+))=E 
NEXT J 
GOSUB 840 
PRINT "PARA ONDE VOCÊ 
VAL (N,L,S OU 0)”; 

AS 


"L” THEN GOTO 540 
“8” THEN GOTO 580 
“D” THEN GOTO 610 
GOTO 450 


“Nº THEN GOTO 510 


LET 970 RETURN 

LET U= 980 PRINT “O RELOGIO BATEU” 
BOTO 630 990 PRINT “MEIA-NOITE” 

LET T=N E 1000 PRINT "AARARARHHHHHHH: t 41" 
LET U=M+ 1010 STOP ç 

IF RCT/U)=7 AND M=19 THEN 1020 IF X=0 THEN GOTO 1080 
GOTO 750 1030 PRINT “QUER CAVAR UM 

GOTO 430 BURACOCS OU N)"; 


1040 INPUT BS 
1050 IF BS()"S” THEN GOTO 1080 
1040 LET X=X-1 
1070 LET A(R,S)=L 
1080 FOR J=] TO 5 STEP 2 
IF ACT, UD=Z THEN BOTO 690 1090 LET T=B(J) 
IF ACT/U)=D OR A(T,U)=8 1100 LET U=8(J4]) 
THEN GOTO 470 1110 IF ACT,U+)=Y THEN GOTO 810 
1F ACT,U)=C THEN GOTO 780 1120 IF ACT,U-1)=Y THEN GOTO 810 
IF ACT, U)=E THEN GOTO B10 1130 IF ACT-1,U)=Y THEN GOTO 810 
PRINT “NAO PODE” 1140 IF ACT+1/U)=Y THEN GOTO 810 
GOTO 440 1150 1F A$="0" THEN GOTO 1270 
LET ACN,M)=Z 1140 "S" AND ACT+,U)=Z 
LET NeT O 1240 
LET Me n70 |" AND ACT-1,U)=Z 
LET A(N,M)=Y THEN GOTO 1250 
GOSUB 1020 N80 IF AS="L” AND ACT,U+)=Z 
GOTO 400 AND MU THEN GOTO 1210 
PRINT "VOCE ESCAPOU” N90 IF AS="Lº AND ACT,U-1)=Z 
PRINT "A NOTA PARA - THEN GOTO 1220 
O SEU DESEMPENHO E " 1200 GOTO 1270 
INTCLBS-U) /604(954%)) pe 1210 LET BlJH)=B(J41)42 
STOP 1220 LET B(J+1)=8(4+1)-1 
PRINT “VOCE CAIU EM UM” 1230 GOTO 1240 
PRINT “DE SEUS PROPRIOS 1240 LET B(J)=B(J)+2 
BURACOS” 1250 LET B(J)=B(3-1 
STOP 1260 LET ACT,U)=Z 
PRINT “ARGH! UM ESQUELETO! 1270 NEXT J 
PRINT “MATOU VOCÊ DE SUSTO” 1280 RETURN 
STOP 
LET A(N,M)=y 
cLs 
LET R=N 
LET S=k 

=Uj+ 
eso ns GOTO 980 A listagem acima é para o TRS-80. Para os 
PRINT "MOVIMENTO NUMERO “, outrós micros, faça as mudanças abaixo. 
do Ea dia a € 10,850 HOME 
PRINT CHESCACI<I) 40,850 PRINT CHR$ (147) 
MEX É 70,120-170 Substitua ASC por CODE 

4M0250,290 Substitua RND(D) por RND(I) 

dad 47 280,290 Substitua RND(O) por RND 


eee 


Casa Maluca 


Você está preso em uma casa estranha onde tudo se move, até as paredes. Se pelo 
menos as portas ficassem alinhadas por um momento, você poderia correr para & = 
liberdade! Você encontrou um painel que parece controlar alguns dos movimentos da 
casa. As teclas X e C fazem a porta mais próxima (na parte de cima da tela) mudar de 
direção. As teclas NeM têm o mesmo efeito sobre a porta mais distante. Parece não 
haver nenhum meio de controlar a porta do meio. 
Enquanto você aperta nervosamente as teclas do painel, pode ouvir pegadas no 
corredor. O número no canto superior esquerdo do painel mostra que O fantasma está 
se aproximando. Se não conseguir fugir a tempo... agaaggghhhhh! 


q seu computador tem som, veja se E 
consegue acrescentar efeitos sonoros aos 
passos e ao fim do jogo se você não 
conseguir escapar. 


10 DIM P(3) 

20 DIM S(3) - Cria duas matrizes, uma para & 

lOyramo 30 CLEAR 1303CLS posição (P) de cada porta e outra para! 
40 PRINT “CASA MALUCA” a direção (S) em que está se movendo. 
50 LET L$= 

loyramo 40 LET U=63 Cria uma fila de estrelas com a 
70 FOR 1=1 TO WU largura (W) da tela e a guarda em LS. 
BO LET LS=L8+"*" 
90 NEXT 1 Inicializa o contador dos passos do 
100 LET CT=240 fantasma. 
110 LET S()=1 


120 LET 8(3)=-1 LL om 
130 FOR 1=1 TO ixa a direção do movimento das 


eramo 140 ND(60) portas no início do jogo. 
150 o, | 


a0140 CLS Escolhe as posições iniciais das três 
| quamol70 FOR 1=2 TO 12 STEPS Laschsad 
“Jogyame 180 PRINTECIH64) LS ] 
[O GVARO190 PRINTECIHGAPCC14+3)/55), 0 Imprime as paredes e as portas. 
200 NEXT 1 
erameê1O PRINTGO,CT———>> 00 Imprime a contagem dos passos do 
220 IF CT(O THEN GOTO 450 fantasma. 


230 1F P<l)=P(2) AND PCB)=PC3) 
THEN GOTO 390 Verifica se o fantasma alcançou você. 


40240 LET ZS=INKEYS 
250 THEN GOTO 300 
260 


270 IF Z8="C" THEN LET S(1)=1 nos 
280 IF Z8="N” THEN LET S(3) be tisirmpiia do gocindis d, 1 


290 IF 2 THEN LET S(3)=] mecerio a. 


| ramo 300 IF CT/25=INTCCT/25) THEN A raça 
P(2)=P(2)+RND(20)-10 ' 
se Movimenta a porta do centro a cada 


Como funciona 


Verifica se você ganhou. 


ao 1 


az (DA4STTT as pena: 
330 


340 FOR 1=1 TO 3 Diminui a contagem de passos. 
IF P(1)CI THEN LET PCTD=1 
IF PCD)>(U-4) THEN LET PLD)=U-4 Calcula a nova posição das portas. Se 
NEXT 1 uma porta chega à borda da tela, fica 


Goro 170 mo mesmo lugar. 
LET L=P(D+ e 


FOR 1=1 TO 15 
PRINTECTH64HL), CM" 
NEXT 1 

ME voce ESCAPOU 112 Imprime sua fuga e uma mensagem. 


STOP 


450 PRINT “TARDE ARE + co Imprime uma mensagem quando você 
460 PRINT “ARRRGGGHHE 2 perde. 


470 STOP 


Em Volta para uma nova tentativa. 


A listagem à esquerda é para o TRS-80. 
Para os outros micros, faça as mudanças 
indicadas nesta página. 


O TRS-80 COLOR 


a cs 

80 LET usa) 

140 LET PCL>=AND(28) 

180 PRINTECIS32),L8 

190 PRINTOCLSIZAP (1439/59), 0) 4 

410 PRINTE(ISIZELO,SCHRSC94); O pCHRB(34) 


W SPECTRUM 


EE 

80 LET W=31 

140 LET PCLI=INTCRNDA(U-4341) 

120 FOR 1=5 TO 15 STEPS 

180 PRINT AT 1,05L8 

190 PRINT AT I.PCI/S)p") (º 

210 PRINT AT 0,0,CT 

200 IF CT/25=INT(CT/25) THEN LET 
P42)=P(2)+ INT CRND&ZO)- 10 

410 PRINT AT L,Ly Mm" 


LET PCI)=INTIRNDCI)S(U=49)4 
a 

FOR 1=5 TO 15 STEPS 

VTRB CD) 

PRINT LS 

VTARCI) 

HTABCPC1/3)) 

PRINT") 4 

VTAB (1) ENTRBCT)SPRINT CT 

sem 

IF PEEK(-16384))127 THEN GET 75 
IF CT/25=INT(CT/25) THEN LET 
P(2I=P(2)+INTRNDC) 420)-10 
VTABCI) 

PRINT TAB(L)" 


&0 LET U=ao 
140 LET P(LI=INTCRNDCI)ECU=4)+1) 
170 FOR 1a5 TO 15 STEPS 
180 LOCATE O, IsPRINT LS 
190 LECATE P(I/5)  LIPRINT =) 
210 
300 

PX2)=P(2)+INTCRND(])420)-10 
410 LOCATE L,LSPRINT "H" 


eee 


3 cs 

&0 LET U=7o 

140 LET PCLy=INTERNDE(U-49+7) 

170 FOR 1=5 TO 15 STEPS 

180 LOCATE O, I=PRINT LE 

190 LOCATE Pl1/5), LIPRINT “> 4º 

210 LOCRTE O,OSPRINT CT 

300 IF CT/25cINT(CT/25) THEN LET 
PE2)=P(2)+INTCRNDS2O9-10 

ATO LOCATE L,ISPRINT H” 


v vic 20 


O PRINT CHRSC147) 

60 LET W=2l 

140 LET PCI)=INTIRNDCI)atU-4))+) 

160 PRINT CHASCI47) 

120 FOR 1x] TO 3 

172 FOR Jel TO 5 

174 PRINT 

180 NEXT 4 

190 PRINT LEFTSCLE, PCI) 
RIGHTS(LS, (18-P(1))) 

Z10 PRINT CHRÉ(I9) CT 

240 GET 28 

300 IF CT/25=INT(CV/25) THEN LET 
PI2)=P(2)+INTCRNDC)4203-10 

375 PRINT CHRSC19) 

395 PRINT CHR$(19) 
PRINT TAB(L)"] 


Que acontece se você mudar o 
número da linha 100? E se tirar 
O sinal de menos da linha 120? 
Mude os dois 25 da linha 300 
para outro número e veja se faz 
alguma diferença, 


Labirinto Assombrado 


: um lugar assustador. Os corredores escuros não parecem levar a parte alguma. Quem 
be são mal-assombrados? Você só pode ver o que está à frente, e só pode se mover 
nesta direção. Pode virar para a esquerda ou para à dire isso apenas muda 

seu ponto de vista. O único meio de escapar é chegar à cruz que assinala a saída. 

Epa! O lugar é mal-assombrado, sim! Os fantasmas são representados pela letra F. Se 
passa perto de um deles, é transportado instantaneamente para outra parte do 
labirinto. Aqui estão as teclas que você pode usar: X para avançar, N para virar para a 
esquerda e M para virar para a direita. 


vo 


OQVARO 5 CLEAR 200 
10 DIM E(70) 


20 DIM VSC4,3) 


Cria uma matriz para o labirinto. 


Cria uma matriz para guardar a parte 
do labirinto que pode ser vista na tela. 


30 DIM F(3) 
40 LET US 


50 LET US=U$+"0000000000" 
60 LET US=45+"01 11100110" 
70 LET US=4US+"0010011100" 
BO LET US=U$+"00110101107 
90 LET US=4US+"0110100100" 
100 LET US=U5+"0011 111100" 
110 LET US=45+"0000009000- 
120 FOR 1=1 TO 70 
v 130 LET Eci)= 


VALCHIDS(MS,1,1)) De ê aiii 
AGIR 3 é a posição do fantasma. 
150 LET S=-] Escolhe uma posição inicial para o 
160 LET G=12 DS — iator. 

4rame 170 LET X=INT(RND(0)450)+10 


180 TF EGOOI THEN GOTO 170————— Se a posição não fica em um corredor, 
volta para escolher outra. 


Cria uma matriz para guardar uma 
linha da matriz acima. 


Dados para o labirinto: 1 = corredor, 
0 = parede, 9 = saída, 


para guardar os dados na 


S é o número de vezes que o fantasma 
se moveu. 


190 GOSUB 860 Vai para a sub-rotina que posiciona o 
fantasma. 


Gramo 200 LET DEINTCRNOCOD44+1) ————————— Essolhe a direção nara onde o jogador 
está voltado no início do jogo. 
210 IF X=G+0 OR X=6-10 THEN GOTO 170 a É i DE » 
DR DE Fo ca se o jogador está ao lado de 
um fantasma; em caso 
escolhe uma nova posição para o 


jogador. 
230 LET H=H+] Incrementa o número de movimentos 
do jogador. 
240 IF He5 THEN GOSUE 840 —=—— > A cada 5 movimentos, vai para a sub- 
rotina que posiciona o fantasma. 
250 60848 30——>>—>— + A H Ends 
Vai para a sub-rotina que imprime a 
se 240 INKEYS parte do labirinto que o jogador pode 
270 THEN GOTO 260 NTE 
280 * THEN LET D=D41 
290 " THEN LET D=D-1 Receb y El d 
200 IF Des THEN LET ecebe uma instrução do jogador e 


310 IF D=0 THEN LET muda o valor de D), se necessário. 


320 IF ASO"X THEN GOTO 210 ——————>———— Se a instrução não é 
volta para 210. 


em frente”, 
330 IF D=] AND E(X-10)()0 THEN LET 
340 IF D=3 AND E(X+0)()0 THEN LET 
350 IF D=2 AND E(X+)()0 THEN LET 
360 IF D=4 AND E(X-1)()0 THEN LET 
370 IF E(X)=9 THEN'GOTO 930 ——>—>———— Ve 


Verifica se é possív 


ir em frente. 


rifica se o jogador chegou à saída. 


380 GOTO 210 Se não chegou, volta para 210. 


Efeitos sonoros 


Se o seu micro pode gerar 
sons, veja se consegue incluir 
um ruído assustador cada vez 
que um fantasma aparecer. 


390 FOR 1=1 TO 4 
400 LET 1=1-1 


v4IO ON D GOTO 420,460,500,540 


420 LET F(1 10xTH 
430 LET F(2)=X-104T 
440 LET F(3)=X-10xT-1 
450 GOTO 570 

440 LET F(1)=K+04T 
470 LET F(2)=X+T 

480 LET F(3)=X-10+T 
490 GOTO 570 

500 LET F(1)=X+104T-1 
S10 LET F(2)=X+10XT 
520 LET Ft3)=X+104T+] 
530 GOTO 570 

540 LET F(1)=X-T-10 
950 LET F(2)=X-7 

560 LET F(3)=X-T+0 
570 FOR J=1 TO 3 


580 IF F(JI4] OR F(J)569 THEN GOTO 840 
590 IF ECF())=0 THEN LET VSCI, E 


600 IF EXF(J))=] THEN LET 
S10 1F ECF(J) THEN LET 
620 IF E(F(J) THEN LET 
530 NEXT J 
640 NEXT 1 
650 LET V$(1,2)="Y" 

Ae 440 CLS 
470 PRINT 
680 PRINT “JK LABIRINTO 
490 PRINT 
700 PRINT “EM FRENTE x” 
710 PRINT "DIREITA Mr 
720 PRINT “ESQUERDA Nº 


730 FOR 1=] TO 5 

740 PRINT 

750 NEXT 1 

760 FOR 1=4 TO 1 STEP- 
770 LET Pg="" 


780 FOR J=3 TO 1 STEP- 
790 LET PS=PS+USCI,J) 
800 NEXT J 

BIO PRINT TAB(7);P$ 
820 NEXT 1 

830 RETURN 

B40 LET USCI,J)="H" 

850 GOTO 630 

B60 LET E(G)=] 


VSCL, 


VSCI,J 
VCL, 


oe 


Ovamo 870 LET G=INT(RND(0)k50)+10 
880 IF E(G)()1 THEN GOTO 870 


890 LET EtG)=2 

900 LET H=0 

910 LET S=5+] 

920 RETURN 

930 PRINT “VOCE ESCAPOU" 
940 PRINT “EM 
950 STOP 


SX5+H;" MOVIMENTOS! 


A listagem à esquerda é para o TRS-80. 


Para os outros micros, faça as mudanças 
abaixo. 


O4vamO Suprinir a linha 5 
W130 LET ECI)=VALCUSCI TO 19) 
AMO 170 LET X=INTCRND(1)450)+10 


MV I7O LET X=INTCRNDE50)+0 
40200 LET D=INTCRND(1)84)+] 
67200 LET D=INT(RND$4)+ 
| 0260 AS="“:IF PEEK(-14384))127 
| THEN GET AS 
4260 GET AS 
v410 GOTO 380+4040 
9660 HOME 


4660 PRINT CHRS(147) 
4M6B70 LET G=INT(RND(1)450)+)0 
47 B70 LET G=INT(RNDA50)+10 


Caracteres gráficos 


Substitua os símbolos +, F, Y e + 
por caracteres gráficos. Para isso, 
terá que mudar as linhas 590, 610, 
620, 650 e 840. 


Sab-rotina que calcula: 
a) quais os quadrados que você pode 
ver de onde está. 

b) que caracteres colocar nesses 
quadrados. 
€) imprime instruções e a parte do 
labirinto que você pode ver. 


Aumente o labirinto 


Este labirinto se baseia em um 
retângulo de 10x7 posições. Para 
aumentá-lo, basta mudar as 
seguintes linhas, substituindo N 
pelo número total de posições do 
novo retângulo (N deve ser 


múltiplo de 10). 
ubstitua 70 por N. 
50-110: Acrescente novas linhas de 


uns” e “zeros” em 55, 65 etc., 
de modo que o número total de 
caracteres seja N. 
Substitua 70 por N. 

ua 50 por N-20. 


Suh-rotina para mudar a posição do 
fantasma a cada cinco movimentos. 


Mensagem no final do jogo. 
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Sessão Espírita 


querem que você observe 
computador, 
vão ficar zangados, muito zangados 

Preste atenção à estrela que aparece na 
as letras que os espíritos estão enviando. 


vago 
500 
s10 
520 
sao 
E 


50 PRINT 
50 PRINT TRB(8); "SESSÃO ESPIRITA 


70 FOR 1=1 TO 8 550 
BO LET X-ó+t 560 
90 LET 155 570 
100 LET AS=CHRSCCS+) E 
110 GOSUB 710 590 


120 LET Yetl 


soo 
130 LET ASSCNRSCCS+22-1) o 
140 GOSUB 710 
150 NEXT 1 seo 
160 FOR 1=1 TO 5 
sao 
180 LET Y=5+1 v640 
190 LET AS=CHRS(CS427-1) 650 
200 GOsuB 710 460 
210 LET X=l6 so 
220 LET AS=CHAS(CS+8+1) +80 
230 GOSUB 710 490 
240 NEXT 1 700 
250 LEI PS: 8710 
qramo 250 LET N=INTIRNDLO)R4+3) 720 
270 FOR 1=1 TON 730 
280 LET Asc" 
ramo 290 LET L=INTLRND(O)A26+17 740 


300 LET SS=CHRS(CS+L) 
alo LET PS=PS+SS 

320 LET 
330 IF L422 THEN LET 
340 IF LIA THEM LET D=2 

aso IF LC9 THEN LEI D=1 

340 ON D GOTO 370,400,430,460 
370 LEI =6 

380 LET X=L 46 
apo GOTO 4ãO 
400 LET X=15 
410 LET Y=L-3 
420 GOTO 480 
430 LET Y=10 
440 LET X=28-L 
450 GOTO 480 
460 LET X=6 
490 Y=32-L 
Ago GOSUS 710 


'O número da 
linha 490 
controla a 
velocidade com 
que a estrela se 
move na tela. 
Quanto menor o 
número, maior à 
velocidade. 


As mensagens dos espíritos estão chegando, letra por letra. Eles 
as letras e entre com elas no 
na ordem correta. Se você se enganar, 


tela. Ela lhe mostrará 


A listagem acima é para o TRS-80. Para os 
outros micros, faça as mudanças abaixo. 


Como o 


programa 
funciona 


Depois de jogar 
“algumas vezes, examine 
a listagem e veja se 
descobre como o 
programa fun: 
(Pista: D é uma 


os espíritos 


variável que diz ao 
computador em que 
lado do quadrado — 
1,2,3, ou 4 — está a 
letra seguinte da 
mensagem.) 


FOR =) TO 600 
NEXT T 

LET As=" 
Gosus 710 
NEXT 1 


GOSU8 710 

INPUT R$ 

1F R$-PS THEM GOTO 470 
LET 6: 
TÊ 651 THEN PRINT "A MESA 
COMECOU A TREMER 

IF 6-2 THEN PRINT “A LAMPADA 


ESTOUROU! 

1F 6=3 THEN GOTO 730 

FOR T=1 TO 1000 

NEXT T 

Bojo so 

LET S=SeN 

TF S(50 THEN GOTO 40 

PRINT “OS ESPIRITOS SE FORAM 
so 

PRINTEGANTAZEX,AS; 

RETURN 

PRINT “UM PAR DE NROS PEGAJOSAS 
APERTOU O SEU PESCOCO" 

sor 


840 HOME 
440 PRINT CHRSCIAT) 


am, 
amoddo LET NSINTIANDLI) 8443) 


0V250 LET N=INTCRNDEAS 
406290 LET L=]NTURNDLL)E26HI) 
49290 LET L=INTCRNDAZO+) 
Y360 GOTO 34043040 
490 FOR T=) 10 100 
v640 FOR T=1 TO 300 


O7O PRINTEIZAVAZAX,AS; 

710 VTRBCOHTAG ONT) PRINT AS 

W710 PRINT AT 

48710 LOCATE X,YiPRINT AS 

W710 PRINT CHRSCI9):FOR Ke] TO VIPRINTE 
MEXTSPRINT TRBCK);AS 


Respostas dos problemas 


Pesadelo (página 3) 
4vAm6 100 LET NS=CHRS CINT(RND(0)426+65)) | Escolhe uma letra e a mostra na tela. 


110 PRINT TAB(5)5NS à 
230 IF FSCONS TRÉN COTO 250 [— Verifica se a tecla apertada está certa. 
Y240 LET s=s*os(Asc(Ns)-65) > Aumenta a contagem, que depende da 
letra (assim, por exemplo, Z vale mais 
que A). 


100 LET NS=CHRSCINTCRND(] 1%26+65)) 
100 LET NS=CHRS (INT (RND426+65)) 
V240 LET S=5+10+(CODE(N$)-45) 


Repare nas 
diferentes versões 
para diferentes 
micros. 


O Mago dos Números (página 5) 


Sur ias Inicializa o número de vitórias e 
& LET Wao derrotas. 


BI LETLLH A Aumenta O número de vezes que você 


360 GOTO 390 perdeu. 
380 LET Ugo 
390 PRINT Aumenta o número de vezes que você 


400 PRINT "VOCE O MAGO! ganhou. 

410 PRINT Imprime a contagem. 

420 PRINT" "; o Pausa para que você possa ver a 
O 


450 601020 ——>>—>—— Volta para outra tentativa. 


umente este 
número nos 
micros mais velozes, 


ulher-Aranha (página 9) 


ILETNGEO— Inicializa o número de palpites. 


SST LET NG=Nga) > > qmerementa o número de palpites. 

360 IF GS=TS THEN GOTO 370 Se o palpite está certo, encerra o jogo. 

S62 PRINT "ERRADO!" >>> > ymprime mensagem dizendo que o 
iogador errou. 

ET AúmEnia do 5 0 núMErO de tentativas 
como penalidade para um palpite 
errado. 

366 IF NG=2 THEN GOTO 410 TO ———— Se você errou dois palpites, o jogo 
termina. 


Msg volta p 


Nota especial para os usuários do TK-2000: 
Se o seu micro é um TK-2000, use as modi ficações indicadas para a família Apple, com uma 
única exceção: se a modificação for do tipo 

man AS=""sIF PEEK(-16384))127 THEN GET AS 

onde nnn é o número da linha e A$é o nome de uma variável, substitua esta linha por 

nn AS=""3CALL -1639711F PEEK(-14385))0 THEN GET as 

e acrescente as seguintes linhas: 


1 DATA 169,255,141,0,192,77 
2 DATA 16,192,141,255,191,96 
3 FOR I=-6397 TO -16594 
4 READ AsPOKE 1,RENEXT 1 


a tentativa seguinte. 


Nota para 0s usuários do MSX: Em todos os programas, 
acrescente a linha: 

S R=RKND(-TIME) 

Nota para os usuários do PC: Em todos os programas, 
acrescente a linha: 

5 RANDOMIZE VALCRIGHTSCTIMES,2)) 


CEA 


EX”-— TUDO O QUE VOCÊ PRECISA 
SABER SOBRE MICROCOMPUTADO 


— 


ga 


